perl array foreach

join shbcf.ru